View class structure:
~~~~~~~~~~~~~~~~~~~~~
create class View from DBrowse
  export:
  var ViewID    //0
  var MenuID    //0
  var MenuNtxID //0
  var MenuFltID //0
  var MenuRptID //0
  var CanGoto   //true
  var Fields    //{}
  var Action    //{}
  var Filter    //{{},{},{},{}}
  var Report    //{{},{},{}}
  method New=ViewNew              //o:New() --> self --> self
  method Copy=ViewCopy            //o:Copy() --> copy_of_current_view_object
  method CreateObj=ViewCreateObj  //o:CreateObj() --> new_object_of_this_class
  method Init=ViewInit            //o:Init() --> true
  method Select=ViewSelect        //o:Select(cAlias) --> true
  method DefWindow=ViewDefWindow  //o:DefWindow(Name,R,C,Rs,Cs,Clr) --> true
  method AddBlock=ViewAddBlock    //o:AddBlock(cLongNm,cShortNm,cVarNm,bBlock,bDoGet,cPict,bWhen,bValid) --> true
  method AddMemo=ViewAddMemo      //o:AddMemo(cLongNm,cShortNm,cField,bWhen,bValid,nRowSize,nColSize) --> true
  method AddField=ViewAddField    //o:AddField(cLongNm,cShortNm,cField,cPict,bWhen,bValid) --> true
  method AddFilter=ViewAddFilter  //o:AddFilter(cName,cExpr,lMark) --> true
  method AddRAll=ViewAddRAll      //o:AddRAll(cName,cTop,aFields,cBottom,lOnlyTotals) --> true
  method AddReport=ViewAddReport  //o:AddReport(cName,lOnlyTotals) --> true
  method AddRTop=ViewAddRTop      //o:AddRTop(cTop) --> true
  method AddRField=ViewAddRField  //o:AddRField(cTitle,aField,cPict,lTot,cSubT) --> true
  method AddRBottom=ViewAddRBotto //o:AddRBottom(cBottom) --> true
  method AddAction=ViewAddAction  //o:AddAction(nKey,bProcedure,cInfo) --> true
  method View=ViewView            //o:View(ID,Name,R,C,Rs,Cs,Clr,Shd) --> true
  method Edit=ViewEdit            //o:Edit(ID,Name,R,C,Rs,Cs,Clr,Shd) --> true
  method ViewEdit=ViewViewEdit    //o:ViewEdit(ID,Name,R,C,Rs,Cs,Clr,Shd) --> true
  method Goto=ViewGoto            //o:Goto(ID,Name,R,C,Rs,Cs,Clr,Shd) --> true
  method Locate=ViewLocate        //o:Locate(ID,Name,R,C,Rs,Cs,Clr,Shd) --> true
  method PreGoto=ViewPreGoto      //o:PreGoto(Menu,MdId) --> true
  method PostGoto=ViewPostGoto    //o:PostGoto(Menu,MdId) --> true
  method SetIndex=ViewSetIndex    //o:SetIndex(ID,R,C,CurSize,Clr,Shd) --> true
  method SetFilter=ViewSetFilter  //o:SetFilter(ID,R,C,CurSize,Clr,Shd) --> true
  method SetReport=ViewSetReport  //o:SetReport(ID,WinNam,R,C,CurSize,Clr,Shd) --> true
  method ModIndex=ViewModIndex    //o:ModIndex(ID,WinNam,R,C,CurSize,Clr,Shd) --> true
  method ModFilter=ViewModFilter  //o:ModFilter(ID,WinNam,R,C,CurSize,Clr,Shd) --> true
  method ModReport=ViewModReport  //o:ModReport(ID,WinNam,R,C,CurSize,Clr,Shd) --> true
  method VProcess=ViewVProcess    //o:VProcess() --> true
  method Done=ViewDone            //o:Done(lRePaint) --> true
  private:
  method EndViewEdit=ViewEndViewEdit    //o:EndViewEdit() --> true
  endclass